Mac100% 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Utility / CNIF_MacroMaker 1.4.sit / CNIF_MacroMaker 1.4 / CNIF_MacroMaker / background_40580.xml < prev next >

Wrap

Extensible Markup Language | 1999-01-11 | 61KB | 1,347 lines

<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>40580</id> <filler1>0</filler1> <bitmap>BMAP_41535.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>4</top> <right>194</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>mainMenu</name> <script>on mouseDownmainMenuend mouseDown</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>200</left> <top>4</top> <right>445</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenu</name> <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>61</top> <right>505</right> <bottom>273</bottom> </rect> <style>scrolling</style> <autoSelect> <true /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>titleList</name> <script>on mouseUpset cursor to watchput (the shiftKey is down) into sh-- lock screenput the selectedText of me into cTextif cText <> empty thenput (the clickText is char 7 to 14 of cText) into clickIDput char 7 to 14 of cText into scanIDif sh or (bg fld id 31 <> "ID:" and clickID) thenput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ･ﾃｼﾃｧﾄｱﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"put setDate(last line of bg fld "titleList",bg fld id 33) into scanDateput bg fld id 22 into forumNameget "-BUL"send "extList forumName,scanID,scanDate,it,(sh and clickID)" to bg btn "ﾃ･ﾃｼﾃｧﾄｱ" of cd 1 of bg "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS"elseif bg fld id 31 is "ID:" thenif clickID thenput scanID into bg fld id 30select line 0 of meexit mouseUpend ifend ifget char 1 to 3 of cTextif it is a number thenglobal CNMBBStListif char 5 of cText <> "*" thenput "*" into char 5 of line (word 2 of the selectedLine of me) of meput bg fld id 5 into listif list contains "-" then put shortNumber(list,false,true) into listput value(it) into item (the number of items of list) + 1 of listsort items of list numericif bg fld id 32 is "DATE:" and the hilite of bg btn "ﾃ･竕暗ｭﾃ" is false thenput setDate(cText,bg fld id 33) into bg fld id 33end ifelseput " " into char 5 of line (word 2 of the selectedLine of me) of meput bg fld id 5 into listif list contains "-" then put shortNumber(list,false,true) into listrepeat with r = 1 to the number of items of listif item r of list = it thendelete item r of listexit repeatend ifend repeatend ifif shortNum() then put shortNumber (list,true,true) into listput list into bg fld id 5put empty into CNMBBStListend ifend ifend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>47</top> <right>505</right> <bottom>62</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>header</name> <script>on mouseUpopenEditLogend mouseUp</script> </part> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>10</left> <top>274</top> <right>152</right> <bottom>313</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>readList</name> <script>on mouseUpaskListend mouseUp</script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>39</left> <top>318</top> <right>153</right> <bottom>339</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>NIFTY-Navigator II</name> <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script> </part> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>285</left> <top>317</top> <right>305</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8349</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevBgend mouseUp</script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>306</left> <top>317</top> <right>326</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23718</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevCdend mouseUp</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>325</left> <top>317</top> <right>345</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23717</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextCdend mouseUp</script> </part> <part> <id>10</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>346</left> <top>317</top> <right>366</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8350</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextBgend mouseUp</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>370</left> <top>317</top> <right>390</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13301</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevMcend mouseUp</script> </part> <part> <id>12</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>389</left> <top>317</top> <right>409</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13302</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextMcend mouseUp</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>454</left> <top>317</top> <right>474</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6720</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoTopCdend mouseUp</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>0</left> <top>330</top> <right>12</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itset the visible of bg fld "KeyList" to not itend mouseUp</script> </part> <part> <id>17</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>346</left> <top>284</top> <right>402</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name> <script>on mouseUpif the short name of this cd is " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " thenclearDataelseglobal CNMBBStListput bg fld id 3 into trepeat with r = 1 to the number of lines of tset the cursor to busyif char 5 of line r of t is "*" then put " " into char 5 of line r of tend repeatput t into bg fld id 3put empty into bg fld id 5set the hilite of bg btn id 35 to falseput empty into CNMBBStListend ifend mouseUp</script> </part> <part> <id>18</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>412</left> <top>284</top> <right>493</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name> <script>on mouseUp filePath-- put "ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦" into k1-- put "*notEmpty*ﾃﾃ" into k2put "*Prompt*BUL" into k1put "*Prompt*BUL" into k2readLogFile filePath,k1,k2end mouseUp</script> </part> <part> <id>19</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>487</left> <top>5</top> <right>505</right> <bottom>23</bottom> </rect> <style>checkbox</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>createMark</name> <script>on mouseUpset marked of this card to hilite of meend mouseUp</script> </part> <part> <id>21</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>406</left> <top>47</top> <right>504</right> <bottom>62</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>listNum</name> <script></script> </part> <part> <id>15</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>361</left> <top>28</top> <right>505</right> <bottom>100</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenuList</name> <script></script> </part> <part> <id>22</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>28</top> <right>84</right> <bottom>48</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownget meforumMenuif me <> it then put empty into bg fld id 49end mouseDown</script> </part> <part> <id>23</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>158</left> <top>275</top> <right>211</right> <bottom>293</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>ﾃ･竕暗ｭﾃ</name> <script></script> </part> <part> <id>24</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>496</left> <top>326</top> <right>512</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>BookMark</name> <script>on mouseUpsetBookmarkend mouseUp</script> </part> <part> <id>25</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>476</left> <top>314</top> <right>512</right> <bottom>328</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BookMarkNo</name> <script></script> </part> <part> <id>30</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>136</left> <top>30</top> <right>266</right> <bottom>46</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>ScanID</name> <script>on closeFieldcheckKeyWordend closeFieldon exitFieldcheckKeyWordend exitFieldon returninFieldcheckKeyWordend returninField</script> </part> <part> <id>31</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>85</left> <top>28</top> <right>135</right> <bottom>48</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownput bg fld "KeyList" into KeyListput KeyList into listrepeat until "," is not in list and ";" is not in list and "/" is not in listif "," is in list then put " " into char offset(",",list) of listif ";" is in list then put " " into char offset(";",list) of listif "/" is in list then put " " into char offset("/",list) of listend repeatput switch(list) into listUxPop "None;ID:;KEY:," & list,"N",,the topLeft of meput item 1 of line 2 of it into mainput line (item 4 of line 2 of it) of KeyList into subif main <> empty thenif main is "KEY:" and sub <> empty thendelete char 1 to 6 of subrepeatget last char of subdelete last char of subif it is "(" then exit repeatend repeatput word 1 to (the number of words of sub) of sub into bg fld id 30elseput empty into bg fld id 30end ifput main into meset the visible of bg fld id 30 to not(main is "none")end ifend mouseDown</script> </part> <part> <id>32</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>267</left> <top>28</top> <right>311</right> <bottom>48</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownUxPop "None;DATE:",,,the topLeft of meif it <> empty thenset the visible of bg fld id 33 to not(it is "None")put it into meend ifend mouseDown</script> </part> <part> <id>33</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>312</left> <top>30</top> <right>358</right> <bottom>46</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>ScanDate</name> <script>on closeFieldcheckNend closeFieldon exitFieldcheckNend exitFieldon returnInFieldcheckNend returnInFieldon checkNget merepeat until "." is not in it and "/" is not in itif "." is in it then delete char offset(".",it) of itif "/" is in it then delete char offset("/",it) of itend repeatput it into d2put "." after char 2 of d2put "." after char 5 of d2convert d2 to secondsif checkDATE(it) is false and it <> empty or d2 > the seconds thenbeepput the date into dconvert d to dateitemsput item 3 of d - 1 into sput 1 into item 3 of dconvert d to long dateanswer quote & nextSEAdate(0) & quote & "ﾃﾂｻﾃｫOﾃﾃεｬﾋ凖ｯt(YYMMDD)ﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿ﾃｳﾂｷﾃ⒀" & d & "ﾃﾃεｨﾃ催ｧﾃ｡" & return &ﾂｬ"ﾃ①ﾃ①ﾃ①" & quote & nextSEAdate(s) & quoteput nextSEAdate(0) into meselect text of meelseput it into mecheckKeyWordend ifend checkN</script> </part> <part> <id>35</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>158</left> <top>294</top> <right>211</right> <bottom>312</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>ALL</name> <script></script> </part> <part> <id>36</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>276</left> <top>284</top> <right>332</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱ</name> <script>on mouseUpput bg fld id 22 into forumNameif the shiftKey is down then put setDate(last line of bg fld id 3,bg fld id 33) into scanDateelse put empty into scanDateget "-BUL"send "extList forumName,,scanDate,it" to bg btn "ﾃ･ﾃｼﾃｧﾄｱ" of cd 1 of bg "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS"end mouseUp</script> </part> <part> <id>37</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>410</left> <top>317</top> <right>430</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13303</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGOPrevBMend mouseUp</script> </part> <part> <id>38</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>429</left> <top>317</top> <right>449</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13304</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGONextBMend mouseUp</script> </part> <part> <id>39</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>319</top> <right>31</right> <bottom>340</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>21700</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>GoHome</name> <script>on mouseUpgoHomeend mouseUp</script> </part> <part> <id>40</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>160</left> <top>318</top> <right>274</right> <bottom>339</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name> BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ </name> <script>on mouseUpvisual effect dissolve very fastgo to cd " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "end mouseUp</script> </part> <part> <id>41</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>212</left> <top>282</top> <right>237</right> <bottom>307</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>24670</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name> <script>on mouseUpglobal ListSelectExit,CNMeditTextput bg fld id 22 into nif n is empty thenbeepanswer "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit mouseUpend ifput BULFileList() into listanswer file "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｮ竕ﾃ･ﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is empty then exit mouseUpput pathToFile(it) into fileNameput postPath() into postPathif MtScanList(list,fileName,,true) is empty thenput it into filePathput "_" & n & "-BUL" into fileNameput fileListInFldr(postPath) into postFileListput changeName (fileName,postFileList,"_") into fileNameput true into CNMeditTextelseput PostPath & fileName into filePathput false into CNMeditTextend ifput fileName into bg fld id 46set the width of bg fld id 46 to length (fileName) * 9lock screenset the cursor to watchput empty into theTextopen file filePathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifrepeatread from file filePath for 16384if it is empty then exit repeatput it after theTextend repeatclose file filePathif char 1 to 3 of line 1 of theText <> "SUB" thenput "SUBJ:" & return & "KEY:" & return before line 1 of theTextput true into CNMeditTextend ifput theText into bg fld id 45show bg btn id 43show bg btn id 44show bg fld id 45show bg fld id 46setScrollFld "bg fld id 45"unlock screen with zoom open fastend mouseUp</script> </part> <part> <id>42</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>242</left> <top>282</top> <right>267</right> <bottom>307</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>28505</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｪVﾃ｣Kﾃｧﾃ湘ｪﾂｨ</name> <script>on mouseUpglobal CNMeditTextlock screenset the cursor to watchput (the optionKey is down) into opget bg fld id 22if it is empty thenbeepanswer "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit mouseUpend ifput postPath() into postPathput "_" & it & "-BUL" into fileNameput fileListInFldr(postPath) into postFileListput changeName (fileName,postFileList,"_") into fileNameput fileName into bg fld id 46put EditorPath() into EditorPathif EditorPath is empty or op is false thenset the width of bg fld id 46 to length (bg fld id 46) * 9put "SUBJ:" & return & "KEY:" & return into bg fld id 45put "/POST" & return into line 15 of bg fld id 45show bg btn id 43show bg btn id 44show bg fld id 45show bg fld id 46setScrollFld "bg fld id 45"put false into CNMeditTextunlock screen with zoom open fastelseput postPath & fileName into filePathget "SUBJ:" & return & "KEY:" & returnput "/POST" & return into line 15 of itMtWriteFile filePath,it,EditorCreator()-- mark cd " BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ "open filePath with EditorPathend ifend mouseUp</script> </part> <part> <id>43</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>28</top> <right>505</right> <bottom>47</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>-1</titleWidth> <icon>-1</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>FieldTitleBar</name> <script></script> </part> <part> <id>44</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>16</left> <top>31</top> <right>29</right> <bottom>44</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 0end ifend mouseStillDownon mouseUpglobal CNMeditTextset the icon of me to 0select emptylock screenset the cursor to watchif (CNMeditText is true or the optionKey is down) and bg fld id 45 <> empty thenbeepanswer "ﾃｯﾅ禿ｧXﾃｬ窶｡ﾃｳeﾃï｣ｿﾃｯ竄ｬﾃｫ竏づﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit mouseUpif it <> "No" thenput postPath() into postPathput postPath & bg fld id 46 into filePathMtWriteFile filePath,bg fld id 45,EditorCreator()changeEndMark filePathmark cd " BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ "end ifend ifput empty into bg fld id 45put " " into bg fld id 46hide bg btn id 43hide bg btn id 44hide bg fld id 45hide bg fld id 46setScrollFld "bg fld id 3"put false into CNMeditTextunlock screen with zoom close fasthide msgend mouseUp</script> </part> <part> <id>45</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>46</top> <right>505</right> <bottom>315</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script>on closeFieldglobal CNMeditTextput true into CNMeditTextend closeField</script> </part> <part> <id>46</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>207</left> <top>29</top> <right>306</right> <bottom>46</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>18</textHeight> <name></name> <script></script> </part> <part> <id>47</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>448</left> <top>6</top> <right>466</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>12490</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>openGuide</name> <script>on mouseUpCNMGuide "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬ"end mouseUp</script> </part> <part> <id>48</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>467</left> <top>6</top> <right>485</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6356</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>HelpON/OFF</name> <script>on mouseUpHelpToggleend mouseUp</script> </part> <part> <id>49</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>355</left> <top>99</top> <right>505</right> <bottom>170</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>KeyList</name> <script></script> </part> <content> <layer>background</layer> <id>1</id> <text>ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬ</text> </content> <content> <layer>background</layer> <id>25</id> <text>0 / 0</text> </content> <content> <layer>background</layer> <id>15</id> <text> BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ Untitled_1</text> </content> <name>ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬ</name> <script>on openCardset the cursor to watchset the visible of bg fld id 30 to not(bg fld id 31 is "None")set the visible of bg fld id 33 to not(bg fld id 32 is "None")pass openCardend openCardon closeCardglobal CNMBBStListput empty into CNMBBStListif the visible of bg fld id 45 thensend "mouseUp" to bg btn id 44end ifcheckKeyWordpass closeCardend closeCardon openbackgroundglobal CNMBULreadListput cd fld id 1 of cd " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " into CNMBULreadListpass openbackgroundend openbackgroundon closebackgroundglobal CNMBULreadList,prevScanIDput empty into prevScanIDput line 1 to 400 of CNMBULreadList into cd fld id 1 of cd " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "pass closebackgroundend closebackgroundon suspendStackglobal CNMBULreadListget " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "if the short name of this cd <> it then put line 1 to 400 of CNMBULreadList into cd fld id 1 of cd itpass suspendStackend suspendStackon newCardset the cursor to watchput "None" into bg fld id 31put "None" into bg fld id 32set the hilite of bg btn id 35 to falsepass newCardend newCardon commandKeyDown whichKeyif whichKey is "f" and the short name of this cd is not in " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ , BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ " thensendBtn "bg btn id 36"else if whichKey is "n" thenif the short name of this cd is in " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " then go to last cd of this bgpass commandKeyDownelse if whichKey is "w" thenif the visible of bg fld id 45 thensend "mouseUp" to bg btn id 44elsepass commandKeyDownend ifelsepass commandKeyDownend ifend commandKeyDownon controlKey whichKeyget the short name of this cdif whichKey = 1 and the short name of this cd is " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " then -- A "ﾃｮCﾃ窶敕ｩwﾃｭﾃ"sendBtn "cd btn id 5"else if whichKey = 12 then -- Lif it <> " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " then sendBtn "bg btn id 40"else sendBtn "cd btn id 4"else if it <> " BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ " and it <> " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " thenif whichKey = 14 then -- N "ﾃｪVﾃ｣Kﾃｧﾃ湘ｪﾂｨ"sendBtn "bg btn id 42"else if whichKey = 18 then -- R "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ"sendBtn "bg btn id 41"elsepass controlKeyend ifelsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ[ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeif mode then put "3,4,5,21,22,30,33" into listelse put "3,4,5,21,30,33" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatcheckKeyWord falseset the hilite of bg btn id 23 to falseset the hilite of bg btn id 35 to falseif mode thenput empty into bg fld id 49if the number of lines of bg fld "subMenuList" <= 3 then put " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " & return & " BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ " & return into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearData-- ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺon RoomTitle ForumName,titleList,logHeaderglobal cNMDialogOFF,cNMautoRead,CNMBBStListif "ﾃ❶ﾃｬoﾃｲ^ﾃ､ﾃﾃｳﾏ\ﾃ❶" is in titleList then exit RoomTitleput "BUL :" && ForumName && "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put false into FCardput empty into CNMBBStListdelete char 1 to offset(return & "BBS>",titleList) of titleListget "ﾃ･ﾃｼﾃｧﾄｱ (1:ﾃ･ﾃｼﾃｧﾄｱﾃ､Jﾃｩn 2:ﾃ鵜ﾃ[ﾃﾃ催ｳﾃｳ E:ﾃｨIﾃｳﾏ\)"if it is in line 1 to 2 of titleList thendelete char 1 to offset(it,titleList) of titleListdelete line 1 to 3 of titleListget offset("ﾃﾃ薦",titleList)put char 1 to it - 1 of titleList into KeyListdelete char 1 to it of titleListdelete line 1 of titleListelseput empty into KeyListend ifput offset("ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦",titleList) - 1 into yif y > 0 thenput char 1 to y of titleList into commanddelete char 1 to y of titleListput line 1 of titleList into listNumdelete line 1 to 2 of titleListelseput the number of lines of titleList into yput line 1 to (y - 1) of titleList into commanddelete line 1 to (y - 1) of titleListput empty into listNumend ifput MtScanList(titleList,"ﾃﾃ") into lrepeat with r = 1 to the number of lines of lget item 1 of line r of lif char 1 of line it of titleList is "ﾃﾃ" thenput line 1 to (it - 1) of titleList into titleListexit repeatend ifend repeatsend "sendScanIDDate command" to cd 1 of bg "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS"put the result into scanIDput item 2 of scanID into scanDateput item 3 of scanID into scanKeyput item 1 of scanID into scanIDpush cardlock screenset the lockMessages to trueput empty into emptyCardput the number of cards of bg "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬ" into cnrepeat with r = 1 to cnset the cursor to busygo to cd r of bg "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬ"get bg fld id 22if it is empty then put the short id of this cd into emptyCardif it is ForumName thenif KeyList <> empty then put KeyList into bg fld "KeyList"if scanKey is "!ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃｱﾂ｢ﾃｩgﾃｳp!" thenput empty into bg fld "KeyList"put empty into scanKeyend ifif (scanID <> empty and (bg fld id 31 <> "ID:" or bg fld id 30 <> scanID)) or (scanID is empty and bg fld id 31 is "ID:") thennext repeatend ifif (scanKey <> empty and (bg fld id 31 <> "KEY:" or bg fld id 30 <> scanKey)) or (scanKey is empty and bg fld id 31 is "KEY:") thennext repeatend if-- if scanDate <> empty and bg fld id 32 <> "DATE:" then next repeatputList titleList,logHeader,listNum,ForumNameput true into FCardend ifend repeat-- ﾃｪVﾃ｣K / ﾃ雨ﾃ[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡if FCard is false and (the hilite of cd btn id 14 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" is false or scanID is empty) thenput ForumName & "-BUL" into cNMDialogOFFif scanID <> empty thenput "[" & scanID & "]" after cNMDialogOFFend ifif emptyCard <> empty thengo to cd id emptyCardreNameCard cNMDialogOFFelseput cNMDialogOFF && "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ雨ﾃ[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"doMenu "New Card"end ifput false into cNMDialogOFFput ForumName into bg fld id 22get newForum (ForumName) -- ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃｭﾂｫﾃ｢ﾂ｡putList titleList,logHeader,listNum,ForumNameput KeyList into bg fld "KeyList"if scanKey is "!ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃｱﾂ｢ﾃｩgﾃｳp!" then put empty into scanKeyif scanID <> empty thenput scanID into bg fld id 30put "ID:" into bg fld id 31end ifif scanKey <> empty thenput scanKey into bg fld id 30put "KEY:" into bg fld id 31end ifif scanDATE <> empty thenput scanDATE into bg fld id 33put "DATE:" into bg fld id 32end ifend ifpop cardunlock screenput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①" & ForumNameend RoomTitle----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"put bg fld id 22 into forumNameput bg fld "ScanDate" into ScanDateput bg fld "ScanID" into ScanIDput bg fld "ScanID" into ScanKEYif ScanDate <> empty and bg fld id 32 is "DATE:" and ScanID <> empty and bg fld id 31 is "ID:" thenput "DATE&ID" into modeput empty into ScanKEYelse if ScanDate <> empty and bg fld id 32 is "DATE:" and ScanID <> empty and bg fld id 31 is "KEY:" thenput "DATE&KEY" into modeput empty into ScanIDelse if ScanDate <> empty and bg fld id 32 is "DATE:" thenput "DATE" into modeput empty into ScanIDput empty into ScanKEYelse if ScanID <> empty and bg fld id 31 is "ID:" thenput "ID" into modeput empty into ScanDateput empty into ScanKEYelse if ScanID <> empty and bg fld id 31 is "KEY:" thenput "KEY" into modeput empty into ScanIDput empty into ScanDateelseput "NONE" into modeput empty into ScanIDput empty into ScanDateput empty into ScanKEYend ifif "DATE" is in mode then put nextSEAdate(0) into bg fld "ScanDate"BULMacro forumName,ScanID,ScanDate,ScanKEY,modeend makeMacroon BULMacro forumName,ScanID,ScanDate,ScanKEY,modeglobal cNMvariableListput bg fld id 5 into listif the hilite of bg btn id 35 then put "ALL" into listput firstTitle(line 1 of bg fld "titleList",true) into fTitleif fTitle is "ﾃ❶ﾃ､Yﾃｬﾃｱﾃ竏妥ﾃ暗ｯ竏づｨﾃｫﾃﾃ陛窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" then put empty into fTitleput the hilite of bg btn id 23 into numLock-- GO Forumput "cNM" & forumName & "_" into vNamedo "global" && vNameif MtScanList (cNMvariableList,vName,,true) is empty thenputVariableName vNamedo "put empty into" && vNameget MacroGoForum(forumName)do "put it after" && vNameend ifdo "put (" & quote & "s:SCAn^m" & quote && "is not in" && vName && "and" && quote & "KEY" & quote && "is in mode or bg fld id 49 is empty) into getKey"put nextLabel() into label1put nextLabel() into label2put nextLabel() into label3if ScanID is empty then put "None" into p1 else put ScanID into p1if ScanDate is empty then put "None" into p2 else put ScanDate into p2if ScanKEY is empty then put "None" into p3 else put ScanKEY into p3put "m: " & forumName & "-BUL" && "ID:" & p1 && "DATE:" & p2 && "KEY:" & p3 & return &ﾂｬ"s:BUL^m" & return &ﾂｬ"r:^mBBS>ﾆ" & label2 & ":ﾃ竕､ﾃｳﾃｲﾃｳpﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津ﾃｼ" & return into macro-- ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｩﾃ甘ｬﾃｦif mode is "None" thenput "s:REAd^m" & return &ﾂｬ"r:ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦ﾆ" & label3 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return after macroelse if mode is "DATE" thenput macro1(ScanDate,mode,label3) after macroelse if mode is "ID" thenput macro1(ScanID,mode,label3) after macroelse if "KEY" is in mode thenput macro2("KEY",ScanKEY,,ScanDate,getKey,label3) after macroelseput macro2("DATE",ScanDate,ScanID,ScanKEY,false,label3) after macroend ifif list <> empty thenput "*: ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return after macroput shortNumber(list,true,true) into listif numLock or fTitle is empty or list is "ALL" or "ID" is in mode thenput "r:^mﾃﾃ" & return &ﾂｬ"s:" & list & "^m" & return &ﾂｬmacro3(label1) after macroelse-- ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃ邃｢ﾃｭﾂｫﾃ｢ﾂ｡ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃﾃ暗ｨﾃ催ｧﾃ｡ﾃ②ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ厩ﾃ鵜ﾃ叡ﾃ益ﾃ③put "r:" & fTitle & "ﾆ" & label1 & ":^mﾃﾃ" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:" & list & "^m" & return after macroput macro3(label1) after macroend ifelseput "r:^mﾃﾃ" & return after macroput "j:" & label1 & return after macroend ifput label2 & ":" & return &ﾂｬ"r:^mFORUM>ﾆ" & label1 & ":^mﾃﾃ" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"r:^mBBS>" & return &ﾂｬlabel1 & ":" & return after macroput checkLabel(macro) into labelListput "*: TotalLabel :" && the number of items of labelList & return after macrodo "put macro after" && vNameend BULMacrofunction macro1 ky1,mode,label3put nextLabel() into label4return "s:SCAn " & mode & ":" & ky1 & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label3 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬlabel4 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:ﾃ⑦ﾆ" & label3 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬ"t:" & label4 & ":1:ﾃｮ窶佚ｧﾃﾃｬoﾃｲ^ﾃｩ窶廬D" & returnend macro1function macro2 mode,ky1,ky2,ky3,getKey,label1put nextLabel() into label4put nextLabel() into label5if getKey thenput nextLabel() into label6put nextLabel() into label7put "s:SCAn^m" & return &ﾂｬ"r:ﾃｧﾄｱID (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｫSﾃ･ﾃｨﾆ" & label6 & ":ﾃ･ﾃｼﾃｧﾄｱﾃ､Jﾃｩn" & return &ﾂｬ"j:" & label7 & return &ﾂｬlabel6 & ":" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:E^m" & return &ﾂｬ"r:^mBBS>" & return into melse put empty into mput "s:SCAn " & mode & ":" & ky1 & "^m" & return after mif getKey then put label7 & ":" & return after mput "r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬ"s:" & ky2 & "^m" & return &ﾂｬ"r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬ"t:" & label4 & ":1:^mﾃｮ窶佚ｧﾃ" & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel4 & ":" & return &ﾂｬ"s:" & ky3 & "^m" & return &ﾂｬ"r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬlabel5 & ":" & return after mreturn mend macro2function macro3 label1if the hilite of cd btn id 10 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenreturn macro3b(label1) -- NEXT>ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ窶ﾃﾃelsereturn macro3a(label1) -- NEXT>ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃﾂｻﾃﾂｵend ifend macro3function macro3a label1put nextLabel() into label8put label8 & ":" & return into mif the hilite of cd btn id 9 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenput "r:ﾃﾃ柁>:next>" & return after melseput "r:^mﾃﾃ柁>:^mnext>" & return after mend ifput "t:" & label1 & ":1:." & return &ﾂｬ"j:" & label8 & return after mreturn mend macro3afunction macro3b label1put nextLabel() into label8put nextLabel() into label9put nextLabel() into label10put label8 & ":" & return into mif the hilite of cd btn id 9 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenput "r:ﾃﾃ柁" & label9 & ":next>" & return after melseput "r:^mﾃﾃ柁" & label9 & ":^mnext>" & return after mend ifput "t:" & label1 & ":1:." & return &ﾂｬ"j:" & label8 & return &ﾂｬlabel9 & ":" & return &ﾂｬ"t:" & label10 & ":1:." & return &ﾂｬ"j:" & label8 & return &ﾂｬlabel10 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬ"j:" & label8 & return after mreturn mend macro3b-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckput empty into rtif bg fld id 22 is empty thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃ邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtend ifput bg fld id 31 into pm1if pm1 is "ID:" and checkID(bg fld id 30) is false thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ID: ﾃﾃ陛ｮﾂｺﾃ､pﾃ㈿ﾃｯ竏づｩﾃｶﾃ竕暗竏妥③" & return after rtend ifput bg fld id 32 into pm2if pm2 <> "None" and checkDATE(bg fld id 33) is false thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃｬﾋ凖ｯtﾃﾃ" &&quote& "YYMMDD" &quote&& "ﾃ竕暗竏妥③" & return after rtend ifreturn rtend dataCheck-- ﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃ荏ﾃ宇ﾃ叡ﾃ丑on checkKeyWord modesend "checkKeyWord mode" to cd 1 of bg "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS"end checkKeyWord-- ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳function BULFileListput postPath() into FldrPathif FldrPath <> empty thenset the cursor to watchPUT "T:TEXT" & return & "N:-0" into TargetParamput fileListInFldr(FldrPath,TargetParam) & return into listrepeat with r = the number of lines of list down to 1get line r of listdelete char 1 to offset("-",it) of itput offset("-",it) into x1put offset("_",it) into x2if x1 > 1 and (x1 < x2 or x2 is 0) then get char 1 to (x1 - 1) of itif x2 > 1 and (x2 < x1 or x1 is 0) then get char 1 to (x2 - 1) of itif it <> "0" then delete line r of listend repeatPUT "T:TEXT" & return & "N:-BBS" into TargetParamput fileListInFldr(FldrPath,TargetParam) & return after listPUT "T:TEXT" & return & "N:-BUL" into TargetParamput fileListInFldr(FldrPath,TargetParam) & return after listrepeat with r = the number of lines of list down to 1get line r of list-- if char 1 of it <> "F" and char 1 to 2 of it <> "_F" and char 1 of it <> "S" and char 1 to 2 of it <> "_S" thenif it is empty thendelete line r of listend ifend repeatsort lines of listreturn listelsereturn emptyend ifend BULFileListfunction setDate cText,scanDateput nextSEAdate() into todayput char 1 to 2 of today into YYget char 17 to 21 of cTextdelete char 3 of itif it is empty then get char 3 to 6 of todayget addZero(value(it),4)if it > char 3 to 6 of today then put (YY - 1) before itelse put YY before itif it < scanDate or scanDate is empty then put it into scanDatereturn scanDateend setdateon GComBtnreturn "bg btn id 18"end GComBtnon scrFldsetScrollFld "bg fld id 3"end scrFld</script> </background>